home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr48
/
vdl020d.zip
/
VFONT.DOC
< prev
next >
Wrap
Text File
|
1993-04-14
|
5KB
|
256 lines
{
════════════════════════════════════════════════════════════════════════════
Visionix EGA/VGA Font Manipulation Unit (VFONT)
Copyright 1991,92,93 Visionix
ALL RIGHTS RESERVED
────────────────────────────────────────────────────────────────────────────
Revision history in reverse chronological order:
Initials Date Comment
──────── ──────── ────────────────────────────────────────────────────────
lpg 03/15/93 Added Source Documentation
mep 02/11/93 Cleaned up code for beta release
jrt 02/08/93 Sync with beta 0.12 release
jrt 12/15/92 Updated to work in protected mode for BP 7.0
jrt 12/07/92 Sync with beta 0.11 release
jrt 11/25/92 Moved VFontVGAWidthSet to here from VCRT.
Wrote template for VFontDefaultLoad.
Rename VPutFont/VGetFont to VFontPut/VFontGet.
jrt 11/21/92 Sync with beta 0.08
jrt 09/01/92 First logged revision.
════════════════════════════════════════════════════════════════════════════
}
Unit VFont;
Uses
DOS,
VDPMI,
VEQUIP;
{────────────────────────────────────────────────────────────────────────────}
Const
Font_EGA_8x14 = 2;
Font_VGA_8x16 = 6;
Procedure VFontGet( FontType : BYTE;
Var BytesPerChar : BYTE;
Var Table : POINTER );
Procedure VFontPut( StartChar : WORD;
NumChars : WORD;
BytesPerChar : BYTE;
Table : POINTER );
Procedure VFontROM8x16Load;
Procedure VFontROM8x14Load;
Procedure VFontROM8x8Load;
Procedure VFontDefaultLoad;
Procedure VFontVGAWidthSet( CharWidth : BYTE );
{────────────────────────────────────────────────────────────────────────────}
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure VFontGet( FontType : BYTE;
Var BytesPerChar : BYTE;
Var Table : POINTER );
[PARAMETERS]
FontType ?
BytesPerChar VAR Returned Bytes Per Character
Table VAR Returned Pointer to Font Bit-Map Table
[RETURNS]
Function : None
(VAR : [BytesPerChar] Bytes Per Character)
(VAR : [Table] Pointer to Font Bit-Map Table)
[DESCRIPTION]
{ gets font bit-map data from the display card }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure VFontPut( StartChar : WORD;
NumChars : WORD;
BytesPerChar : BYTE;
Table : POINTER );
[PARAMETERS]
StartChar Starting Character Number
NumChars Number of Characters in Table
BytesPerChar Number of Bytes Per Character
Table Pointer to Font Bit-Mapped Table
[RETURNS]
(None)
[DESCRIPTION]
{ changes the display cards font bit-map data }
{ redefines the font }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure VFontROM8x16Load;
[PARAMETERS]
(None)
[RETURNS]
(None)
[DESCRIPTION]
{ loads the ROM based 8x16 pixel font }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure VFontROM8x14Load;
[PARAMETERS]
(None)
[RETURNS]
(None)
[DESCRIPTION]
{ loads the ROM based 8x14 pixel font }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure VFontROM8x8Load;
[PARAMETERS]
(None)
[RETURNS]
(None)
[DESCRIPTION]
{ loads the ROM based 8x8 pixel font }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure VFontDefaultLoad;
[PARAMETERS]
(None)
[RETURNS]
(None)
[DESCRIPTION]
{ loads the default ROM based font }
[SEE-ALSO]
[EXAMPLE]
──────────────────────────────────────────────────────────────────────────────
[FUNCTION]
Procedure VFontVGAWidthSet( CharWidth : BYTE );
[PARAMETERS]
CharWidth Desired Character Pixel Width
[RETURNS]
(None)
[DESCRIPTION]
{ sets the with of the font characters when in VGA text mode }
[SEE-ALSO]
[EXAMPLE]